home *** CD-ROM | disk | FTP | other *** search
/ PC Answers 1995 May / PC Answers CD-ROM 7 (Future Publishing) (May 1995).iso / vbits / code / swanson / frmimage.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-01-06  |  3.4 KB  |  122 lines
  1. VERSION 2.00
  2. Begin Form frmImages 
  3.    Caption         =   "Image Controls"
  4.    ClientHeight    =   3810
  5.    ClientLeft      =   1710
  6.    ClientTop       =   1545
  7.    ClientWidth     =   4320
  8.    Height          =   4215
  9.    Left            =   1650
  10.    LinkTopic       =   "Form5"
  11.    ScaleHeight     =   3810
  12.    ScaleWidth      =   4320
  13.    Top             =   1200
  14.    Width           =   4440
  15.    Begin CommandButton cmdExit 
  16.       Caption         =   "E&xit"
  17.       Default         =   -1  'True
  18.       Height          =   495
  19.       Left            =   1545
  20.       TabIndex        =   0
  21.       Top             =   3240
  22.       Width           =   1215
  23.    End
  24.    Begin Image Image1 
  25.       Height          =   480
  26.       Index           =   9
  27.       Left            =   840
  28.       Picture         =   FRMIMAGE.FRX:0000
  29.       Top             =   360
  30.       Width           =   480
  31.    End
  32.    Begin Image Image1 
  33.       Height          =   480
  34.       Index           =   8
  35.       Left            =   1680
  36.       Picture         =   FRMIMAGE.FRX:0302
  37.       Top             =   600
  38.       Width           =   480
  39.    End
  40.    Begin Image Image1 
  41.       Height          =   480
  42.       Index           =   7
  43.       Left            =   330
  44.       Picture         =   FRMIMAGE.FRX:0604
  45.       Top             =   2040
  46.       Width           =   480
  47.    End
  48.    Begin Image Image1 
  49.       Height          =   480
  50.       Index           =   6
  51.       Left            =   600
  52.       Picture         =   FRMIMAGE.FRX:0906
  53.       Top             =   1320
  54.       Width           =   480
  55.    End
  56.    Begin Image Image1 
  57.       Height          =   480
  58.       Index           =   5
  59.       Left            =   1470
  60.       Picture         =   FRMIMAGE.FRX:0C08
  61.       Top             =   1740
  62.       Width           =   480
  63.    End
  64.    Begin Image Image1 
  65.       Height          =   480
  66.       Index           =   4
  67.       Left            =   2235
  68.       Picture         =   FRMIMAGE.FRX:0F0A
  69.       Top             =   1245
  70.       Width           =   480
  71.    End
  72.    Begin Image Image1 
  73.       Height          =   480
  74.       Index           =   3
  75.       Left            =   3075
  76.       Picture         =   FRMIMAGE.FRX:120C
  77.       Top             =   450
  78.       Width           =   480
  79.    End
  80.    Begin Image Image1 
  81.       Height          =   480
  82.       Index           =   2
  83.       Left            =   1200
  84.       Picture         =   FRMIMAGE.FRX:150E
  85.       Top             =   2520
  86.       Width           =   480
  87.    End
  88.    Begin Image Image1 
  89.       Height          =   480
  90.       Index           =   1
  91.       Left            =   2400
  92.       Picture         =   FRMIMAGE.FRX:1810
  93.       Top             =   2520
  94.       Width           =   480
  95.    End
  96.    Begin Image Image1 
  97.       Height          =   480
  98.       Index           =   0
  99.       Left            =   3120
  100.       Picture         =   FRMIMAGE.FRX:1B12
  101.       Top             =   1680
  102.       Width           =   480
  103.    End
  104. Sub cmdExit_Click ()
  105.   Unload Me
  106. End Sub
  107. Sub Form_Load ()
  108.   Me.Show
  109.   ScrambleDisks
  110. End Sub
  111. Sub ScrambleDisks ()
  112.   iMaxWidth = Me.ScaleWidth - image1(0).Width + 1
  113.   iMaxHeight = Me.ScaleWidth - image1(0).Height + 1
  114.   For iCounter = 1 To 5
  115.     For iDiskImage = 0 To 9
  116.       image1(iDiskImage).Left = Int(iMaxWidth * Rnd)
  117.       image1(iDiskImage).Top = Int(iMaxHeight * Rnd)
  118.       image1(iDiskImage).Refresh
  119.     Next iDiskImage
  120.   Next iCounter
  121. End Sub
  122.